module StringSet = Set.Make (
  struct 
    type t = String.t
    let compare = String.compare
  end)

module IntSet = Set.Make (
  struct
    type t = int
    let compare = Pervasives.compare
  end)

